hook sendmessage(vb代码) - 落叶吻春秋网速如龟爬...调入数据.请等一会儿.

落叶吻春秋 现在的中国政府还不如以前的汉奸,走狗
  首页原创软件软件下载技术资料心情日记乱七八糟公告：中国政府把13亿“龙“带成了“小绵羊”！！！！
中国政府把13亿“龙“带成了“小绵羊”！！！！上一篇 | 下一篇 技术资料  hook sendmessage(vb代码)
作者:admin 日期:2008-09-03
字体大小: 小 中 大 
这个代码在写安全工具的时候可能会用到，可以拦截sendmessage关闭你的窗口。保护你的窗口不被关闭
hook真的很好玩啊哈~~不过适用代码要注意，使用不当可能会造成死机。
代码如下
in form
Option Explicit

Private Sub Command1_Click()
    SendMessage Me.hwnd, WM_CLOSE, 0, 0
End Sub

Private Sub Command2_Click()
    SendMessage Me.hwnd, WM_QUIT, 0, 0
End Sub

Private Sub Form_Load()
   gHW = Me.hwnd
   Hook
   Command1.Caption = "测试下WM_CLOSE"
   Command2.Caption = "测试下WM_QUIT"
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Unhook
End Sub
in module
Option Explicit
Public Declare Function SetWindowLong Lib "user32" Alias _
   "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
   ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" _
   Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
   ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
   ByVal lParam As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal 
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const GWL_WNDPROC = (-4)
Public Const WM_CLOSE = &H10
Public Const WM_QUIT = &H12

Global lpPrevWndProc As Long
Global gHW As Long

Public Sub Hook()
   lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, _
   AddressOf gWindowProc)
End Sub

Public Sub Unhook()
   Dim temp As Long
   temp = SetWindowLong(gHW, GWL_WNDPROC, lpPrevWndProc)
End Sub

Public Function gWindowProc(ByVal hwnd As Long, ByVal Msg As Long, _
                 ByVal wParam As Long, ByVal lParam As Long) As Long
    If Msg = WM_CLOSE Then
        MsgBox "WM_CLOSE已经被拦截"
        gWindowProc = True
    ElseIf Msg = WM_QUIT Then
        MsgBox "WM_QUIT已经被拦截"
        gWindowProc = True
    Else
        gWindowProc = CallWindowProc(lpPrevWndProc, hwnd, Msg, wParam, lParam)
    End If
End Function
就这么点的代码就能做到api hook 


文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 
评论: 0 | 引用: 0 | 查看次数: 575发表评论
      昵　称:
      密　码: 游客发言不需要密码.
      内　容:

      正在加载编辑器...
      验证码: 
      选　项:禁止表情转换 禁止自动转换链接 禁止自动转换关键字 
         
      虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号. 
      字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭 
音乐打开音乐 QQ在线用户登陆登录用户注册日记分类首页
原创软件 [10] 
软件下载 [8] 
技术资料 [43] 
心情日记 [22] 
乱七八糟 [3] 
日历2009年5月日一二三四五六262728293012345678910111213141516171819202122232425262728293031123456访客足迹哎，好垃圾的代码！您好 
想和你博客做个链接不知道行不? 已经做...谢谢..很不错..太谢谢了,你用了,可以行蒙牛不配称为民族品牌。 
我们就是强烈要求公审祸国...如果可以的话，加个友情连接 恶魔界 ----...大哥。我也不知道叫你什么好  还是叫你大哥吧   
...很漂亮哦,真的好笨哦。。现在才拿到驾照。。[face02]前无古人，后有来者了。。。。[face05] Archive200902月03月04月05月
200801月02月04月05月06月
07月08月09月10月11月
12月
200712月Powered By PJBlog2 v2.8.5.157 CopyRight 2005 - 2007, 落叶吻春秋 xhtml | css
Processed in 0.046875 second(s) , 2 queries , Cambridge Blue Design By FatMouse 
|  
